Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Cells(2, 1) = 1 Then
        Cells(2, 1) = 0
        Dim TEMname As String
        Dim TemNum As Integer
        TEMname = InputBox("Example：XXX-XXX" & vbCrLf & vbCrLf & vbCrLf & "编制：冯海洋 17513522008 QQ:709331259", "Please Enter  ID_NumBer")
        DoEvents
        If TEMname <> "" Then
            TemNum = Cells(1, 1)
            Columns(TemNum - 1).Select
            Selection.EntireColumn.Hidden = True
            ActiveWorkbook.ActiveSheet.Cells(4, TemNum) = VBA.UCase$(TEMname)
            Cells(5, TemNum).Select
            feng.fenghaiyang
            Cells(5, TemNum).Select
            ActiveWorkbook.Save
            feng.BackIng
        End If
    End If
    If Cells(1, 17) = 1 Then
        Cells(1, 17) = 0
        Cells.Select
        Selection.EntireColumn.Hidden = False
        Range("A2").Select
        ActiveWorkbook.Save
    End If
End Sub

